home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 10, No. 11 (1989-11)(MindCraft Publishing)(Side A).po
/
READ.CARDS.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
492b
|
16 lines
10 REM READ.CARDS
20 D$ = CHR$(4)
30 TEXT : HOME : NORMAL : VTAB 3
40 INPUT "ENTER CARD # (1-52 OR Q TO QUIT): ";A$
50 IF A$ = "Q" THEN HOME : END
60 A = VAL(A$)
70 IF A <1 OR A >52 THEN GOTO 30
80 PRINT D$;"OPEN CARDS,L17"
90 PRINT D$;"READ CARDS,R"A
100 INPUT C$: INPUT S$: INPUT V
110 PRINT D$;"CLOSE CARDS"
120 VTAB 10: PRINT "THE COLOR IS: ";C$
130 PRINT "THE SUIT IS : ";S$
140 PRINT "THE VALUE IS: ";V
150 VTAB 22: INPUT "PRESS RETURN TO CONTINUE";A$
160 GOTO 30